home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / 3d / vb3dss / vb3d.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-06-24  |  3.0 KB  |  101 lines
  1. VERSION 2.00
  2. Begin Form frmMain 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "VB3D - Test your 3d look"
  5.    ClientHeight    =   3195
  6.    ClientLeft      =   1845
  7.    ClientTop       =   1560
  8.    ClientWidth     =   5595
  9.    Height          =   3600
  10.    Icon            =   VB3D.FRX:0000
  11.    Left            =   1785
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   3195
  16.    ScaleWidth      =   5595
  17.    Top             =   1215
  18.    Width           =   5715
  19.    Begin Frame Frame1 
  20.       BackColor       =   &H00C0C0C0&
  21.       Caption         =   "3d - Test"
  22.       FontBold        =   0   'False
  23.       FontItalic      =   0   'False
  24.       FontName        =   "MS Sans Serif"
  25.       FontSize        =   8.25
  26.       FontStrikethru  =   0   'False
  27.       FontUnderline   =   0   'False
  28.       Height          =   1815
  29.       Left            =   630
  30.       TabIndex        =   2
  31.       Top             =   300
  32.       Width           =   4515
  33.       Begin CommandButton Command1 
  34.          Caption         =   "Try Now"
  35.          Height          =   375
  36.          Left            =   1080
  37.          TabIndex        =   4
  38.          Top             =   960
  39.          Width           =   2265
  40.       End
  41.       Begin CheckBox Check1 
  42.          BackColor       =   &H00C0C0C0&
  43.          Caption         =   "Activate 3d effects"
  44.          Height          =   435
  45.          Left            =   1080
  46.          TabIndex        =   3
  47.          Top             =   360
  48.          Width           =   2535
  49.       End
  50.    End
  51.    Begin CommandButton Command3 
  52.       Caption         =   "Exit"
  53.       Height          =   435
  54.       Left            =   3240
  55.       TabIndex        =   1
  56.       Top             =   2460
  57.       Width           =   1635
  58.    End
  59.    Begin Label Label3 
  60.       BackStyle       =   0  'Transparent
  61.       Caption         =   "Comments/Suggestions: 100265,1725 @CompuServe.com"
  62.       FontBold        =   0   'False
  63.       FontItalic      =   0   'False
  64.       FontName        =   "MS Sans Serif"
  65.       FontSize        =   8.25
  66.       FontStrikethru  =   0   'False
  67.       FontUnderline   =   0   'False
  68.       ForeColor       =   &H00FF0000&
  69.       Height          =   615
  70.       Left            =   630
  71.       TabIndex        =   0
  72.       Top             =   2340
  73.       Width           =   1815
  74.    End
  75. Option Explicit
  76. Sub Check1_Click ()
  77.     Select Case Check1.Value
  78.     Case 0
  79.         Call CTL3D_STOP
  80.     Case 1
  81.         Call CTL3D_Start
  82.     End Select
  83. End Sub
  84. Sub Command1_Click ()
  85.     Select Case Check1.Value
  86.         Case 0
  87.             MsgBox "This message has a 'normal' look", 64, "Test 3d"
  88.         Case 1
  89.             If CTL3D_VB() Then
  90.                 MsgBox "This message has NOT '3d' look since you are in VB environment.", 64, "Test 3d"
  91.             Else
  92.                 MsgBox "This message has a '3d' look", 64, "Test 3d"
  93.             End If
  94.     End Select
  95. End Sub
  96. Sub Command3_Click ()
  97.     Call CTL3D_STOP
  98.     Unload Me
  99.     End
  100. End Sub
  101.